Top 10k strings from Final Accounts (1984)(Gemini Marketing).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
8 *(v$="z"));:
6 v$="o");q$(
6 t$="L"))-(share
6 *(v$="z"):
5 v$="o");(" "
5 *(v$="z"));q$(
5 );(" - "
4 *(v$="z"));p$(
3 v$="o");n$(n)(
3 v$="o");("`"
3 line,col;t$;
3 line,col;" ":
3 c$="c")'s$(
2 v$="z");s$(
2 v$="o");" ";:
2 total=total-share
2 total=total+share
2 pytot=pytot+b:
2 cytot=cytot+a(n):
2 cytot=cytot+a
2 cyprofit=0
2 cyno=cyno+1
2 ;"Partner no. ";y;":":
2 *(v$="z"));(s$(
2 *(v$="z"));(" "
2 *(v$="z"));(
2 *(v$="z"));"(";
2 *(v$="z"))
1 x=x+(t$(n)="."):
1 v$="z");("NBV"
1 v$="o");t$'s$(
1 v$="o");n$(104
1 v$="o");n$(103
1 v$="o");b$''(" "
1 v$="o");b$''"TRIAL BALANCE AT ";d$'q$(
1 v$="o");(t$
1 v$="o");(q$(
1 v$="o");(p$(
1 v$="o");("Valuation Depn."
1 v$="o");("Cost or Acc. NBV "
1 v$="o");(" Cost or Acc. NBV "
1 v$="o");(" Valn. Depn. "
1 v$="o");"VAT SUMMARY AT ";d$'q$(
1 v$="o");"Represented by:"'(" "
1 v$="o");"Opening balance";s$(
1 v$="o");"Net profit(loss)";s$(
1 v$="o");"Less: Drawings";s$(
1 v$="o");"Less: CURRENT LIABILITIES"'(" "
1 v$="o");"Closing balance";s$(
1 v$="o");"Capital introduced";s$(
1 v$="o");"CURRENT ASSETS"'(" "
1 v$="o");"CREDIT "'q$(
1 v$="o");"2. CAPITAL ACCOUNTS"'(" "
1 v$="o");"1. SUMMARY OF ";n$(107
1 v$="o");" ";(q$(
1 v$="o");" ";(p$(
1 v$="o");" ";q$(
1 total=total+b(n):
1 total=total+a(n):
1 ther (80 col.)?":
1 tabg);g$'s$(
1 tab);b$'s$(
1 t$=(" "(
1 s$=" "
1 q$="--------------------------------------------------------------------------------"
1 pyvat=pyvat+b(n):
1 pytot=pytot+b(n):
1 pysales=pytot:
1 pyprofit=pyinc+pytot:
1 pyprofit3=0
1 pyprofit3=(share
1 pyprofit2=0
1 pyprofit2=(share
1 pyprofit1=0
1 pyprofit1=(share
1 pyinc=pytot:
1 pyfass=pytot:
1 pyexp=pytot:
1 pydep=pytot:
1 pycost=pytot:
1 pycost=pycost+pnbv
1 pycliab=pytot:
1 pycass=pytot:
1 pycap3=b(85
1 pycap2=b(84
1 pycap1=b(83
1 printn=240
1 printer=250
1 printc=135
1 pnbv=b(n)+b(n+1
1 p$="================================================================================"
1 option=190
1 j$="TRADING, PROFIT AND LOSS ACCOUNT":
1 j$="NOTES TO ACCOUNTS":
1 j$="BALANCE SHEET AT "+d$:
1 heading=300
1 g$=a$+" ended "+d$:
1 diffc=total:
1 diff=total:
1 debit=debit+a(n)*(a(n)>0
1 cyvat=cyvat+a(n):
1 cytot=cytot+a(n+1
1 cysales=cytot:
1 cyprofit=cyinc+cytot:
1 cyprofit3=0
1 cyprofit3=(share
1 cyprofit2=0
1 cyprofit2=(share
1 cyprofit1=0
1 cyprofit1=(share
1 cyinc=cytot:
1 cyfass=cytot:
1 cyexp=cytot:
1 cydep=cytot:
1 cydep=cydep+a(n+1
1 cycost=cytot:
1 cycost=cycost+a(n)
1 cycliab=cytot:
1 cycass=cytot:
1 cycap3=a(85
1 cycap2=a(84
1 cycap1=a(83
1 credit=credit-a(n)*(a(n)<0
1 cnbv=cycost+cydep:
1 c$="c")'(s$(
1 c$="c")'" ` ` ` ";("`"
1 b=pytot+pyfass+b(60
1 b=pysales+pycost:
1 b=pyprofit:
1 b=pyexp+pydep:
1 b=pycliab:
1 b=pycass+pycliab:
1 a=cytot+cyfass+a(60
1 a=cysales+cycost:
1 a=cyprofit:
1 a=cyprofit3:
1 a=cyprofit2:
1 a=cyprofit1:
1 a=cyexp+cydep:
1 a=cycliab:
1 a=cycass+cycliab:
1 X printer or
1 Sales (1) Sales (2) Sales (3) Sales (4) Own consumption Opening stock & WIP Purchases (1) Purchases (2) Purchases (3) Purchases (4) Closing stock & WIP Sundry income Deposit interest Wages Sub-contract Wife's wages Rent Rates Insurance Electricity Gas Repairs Equipment hire Use of home Motor expenses Travelling expenses Carriage Telephone Postage & stationery Advertising Accountancy
1 ICRODRIVE? ";
1 DEMO2
1 DEMO1
1 ASSETTE or
1 ACCOUNTS
1 ================================================================================QP
1 ;(" "(
1 ;"Version 9/84"
1 ;"TITLE-current period (eg""1983"")";
1 ;"System devised by"''
1 ;"SHARE-PREV.PERIOD:` P/L":
1 ;"SHARE-CURR.PERIOD:` P/L":
1 ;"SEARCHING FOR DATA FILE":
1 ;"ROUNDING":
1 ;"ROUNDING"
1 ;"RE-ALIGN PAPER, IF NECESSARY, FOR NOTES TO ACCOUNTS":
1 ;"Programming by"''
1 ;"POUND CODE=";
1 ;"P & L ACCOUNT FIRST":
1 ;"LOAD DATA FILE - PREVIOUS PERIOD"
1 ;"LOAD DATA FILE - CURRENT PERIOD":
1 ;"IS THIS CORRECT? (y/n)":
1 ;"IS THIS CORRECT (y/n)?":
1 ;"INSERT DATA TAPE, THEN ANY KEY":
1 ;"HOW MANY PARTNERS(1-3)?"
1 ;"ENTER FILE NAME: ":
1 ;"ENTER BUSINESS NAME (max.31)";
1 ;"DOES NOT AGREE TO TOTAL":
1 ;"D.J.GINGELL,M.A.,A.C.A."'"D.A.PERKINS,B.A.,A.C.A.,A.T.I.I."
1 ;"C.P.HOWELL,B.Sc.,F.C.A."
1 ;"ACC'G PERIOD? (eg""Year""-max.9)";
1 ;"ACC'G DATE? (eg""31.3.83""-max.9)";
1 ;"5 "
1 ;" FINAL ACCOUNTS MENU "''''
1 ;" EXIT PROGRAM "
1 ;" ENTER OPTION "
1 ;" BUSINESS DETAILS ";
1 ;" FINAL ACCOUNTS ";
1 ;" Any key to continue ":
1 ;" ******** FOUND ******** ":
1 ;" -comparatives (eg""1982"")"
1 ;" READY PRINTER ":
1 ;" "(
1 1984 Gemini Marketing Limited 21, Dinan Way Trading Estate Exmouth, Devon Tel(0395)265165"
1 -len)+t$)(
1 --------------------------------------------------------------------------------SP
1 *(v$="z")+(12
1 *(v$="z"));t$;(" D"
1 *(v$="z"));j$'s$(
1 *(v$="z"));h$;s$(
1 *(v$="z"));h$;
1 *(v$="z"));(i$
1 *(v$="z"));(("(2)"+s$(
1 *(v$="z"));"(1)";s$(
1 *(v$="z"));" DEBIT ";(" "
1 *(v$="z"))*partno)'(" "
1 *(v$="z"))*partno)'''''''
1 *(v$="z"))*(a(n)<0
1 *(v$="z")))
1 *(v$="z"))''''''''
1 *(v$="z"))''" ACCOUNT";s$(
1 *(v$="z"))''" VAT NOMINAL ACCOUNTS"''
1 *(v$="z"))'"TOTALS";s$(
1 *(v$="z"))'
1 *(b/pysales));"%)"
1 *(a/cysales));"%)";
1 );n;" ";(n$(n)+s$)(
1 );(" - "
1 );" ";("`"
1 )+pyprofit3:
1 )+pyprofit2:
1 )+pyprofit1:
1 )+cyprofit3:
1 )+cyprofit2:
1 )+cyprofit1:
1 )'''''''''
1 ''''"Please confirm to exit (y/n)"
1 ''''"Bye!":
1 ''" VAT MEMO ACCOUNTS"''
1 '"File of comparatives to load?"
1 "Vehicles","Plant & equipment","Fixtures & fittings","Leasehold property","Freehold property","Loss(profit) on sale"," "," "," "
1 "TOTAL SALES","COST OF SALES","GROSS PROFIT","Less: Expenses"," Depreciation","TOTAL OVERHEADS","NET PROFIT(LOSS)"
1 "Sales (1)","Sales (2)","Sales (3)","Sales (4)","Own consumption","Opening stock & WIP","Purchases (1)","Purchases (2)","Purchases (3)","Purchases (4)":
1 "Postage & stationery","Advertising","Accountancy","Legal & professional","Sundry expenses","Bank charges","H.P. interest","Loan interest","Leasing","Bad debts":
1 "OVERHEADS","NET PROFIT","NET CURRENT","NET ASSETS"
1 "Insurance","Electricity","Gas","Repairs","Equipment hire","Use of home","Motor expenses","Travelling expenses","Carriage","Telephone":
1 "Goodwill","Bank (1)","Bank (2)","Bank (3)","Bank deposit","Cash","Stock & WIP","Debtors/prepayments","Sales ledger","Other current assets","Creditors/accruals","Purchase ledger":
1 "GOTO 1000" to restart program without losing data
1 "Freehold property","F/H prop-Acc.depn.","Leasehold property","L/H prop-Acc.depn","Vehicles","Vehicles-Acc.depn.","Plant & equipment","Plant&equip-Acc.depn","Fixtures & fittings","F&F-Acc.depn.":
1 "FIXED ASSETS","VAT recoverable","VAT payable","NET CURRENT ASSETS(LIABILITIES)","NET ASSETS(LIABILITIES)"
1 "Capital A/C 1","Capital A/C 2","Capital A/C 3","Capital intro.(1)","Capital intro.(2)","Capital intro.(3)","Drawings (1)","Drawings (2)","Drawings (3)","Long term loans (1)","Long term loans (2)"
1 "Bank loan","Other loans (1)","Other loans (2)","Hire purchase (1)","Hire purchase (2)","HP interest res.(1)","HP interest res.(2)","Other liabilities","VAT input tax","VAT output tax","VAT refunds/payments":
1 "ACCOUNTS" accounting system GEMINI MARKETING LIMITED 1983**programmed by C.P.HOWELL**
1 "ACCOUNTS"
1 " N.B."'" Adjustment to sundry expenses,"'" due to difference on trial"'" balance and/or rounding"'" difference: ";(
1 " ";n$(n+94
1 " ";n$(n)(
1 " ","Total sales","Net payments","I/P at zero VAT","I/P at VAT SR(1)","I/P at VAT SR(2)"
1 " 1 - PRINT TRIAL BALANCE"''" 2 - PRINT TRADING ACCOUNT"''" 3 - PRINT BALANCE SHEET"''" 4 - VAT SUMMARY"''" 5 - EXIT PROGRAM"
1 " ` ";("`"
1 " ","Closing stock & WIP","Sundry income","Deposit interest"," ","Wages","Sub-contract","Wife's wages","Rent","Rates":
1 DIVISION OF NET PROFIT(LOSS)
1